home *** CD-ROM | disk | FTP | other *** search
- ;
- ; $VER: Installation script for EGS-Dock config files (06-18-94)
- ;
- ; written by Brian C. Wright
- ;
- ;
- ; Installer and Installer project icon
- ; (c) Copyright 1991-93 Commodore-Amiga, Inc. All Rights Reserved.
- ; Reproduced and distributed under license from Commodore.
- ;
- ; INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
- ; NO WARRANTIES ARE MADE. ALL USE IS AT YOUR OWN RISK. NO LIABILITY
- ; OR RESPONSIBILITY IS ASSUMED.
- ;
- ;
-
- (welcome "EGS-Dock Config Installation")
-
- (set confbits %0000000000)
- (set confchoice 0)
-
- (set configf1 "Integrated (A) Blue Prefs") ; %0000000001
- (set configf2 "Integrated (A) No Prefs") ; %0000000010
- (set configf3 "Integrated (A) icons only") ; %0000000100
- (set configf4 "Integrated (A) Rainbow Prefs") ; %0000001000
- (set configf5 "Integrated (S) Rainbow Prefs") ; %0000010000
- (set configf6 "Integrated (S) with Apps") ; %0000100000
- (set configf7 "Non-Integrated with Apps") ; %0001000000
- (set configf8 "Non-Integrated icons only") ; %0010000000
- (set configf9 "Non-Integrated Orange Prefs") ; %0100000000
- (set configf10 "Text only") ; %1000000000
-
- (set config1 "s/IntegratedABluePrefs")
- (set config2 "s/IntegratedANoPrefs")
- (set config3 "s/IntegratedANoPrefsNoApps")
- (set config4 "s/IntegratedARainbowPrefs")
- (set config5 "s/IntegratedSRainbowPrefs")
- (set config6 "s/IntegratedSAppsNoPrefs")
- (set config7 "s/NonIntegratedAppsNoPrefs")
- (set config8 "s/NonIntegratedNoPrefsNoApps")
- (set config9 "s/NonIntegratedOrangePrefs")
- (set config10 "s/TextOnly")
-
- (set configdest "EGS:s/EGSDock.config")
-
- (procedure copyconfig
- (
- (set configsource (tackon egs-dest configsource))
- (copyfiles
- (help @copyfiles-help)
- (source configsource)
- (dest "EGS:s")
- (newname configdest)
- )
- )
- )
-
- (set egs-assign
- (getassign "EGS")
- )
-
- (if (= egs-assign "")
- (
- (abort "\n\nNo EGS: assign available.\n\n"
- "Please assign EGS and restart the installation.")
- )
- )
-
- (if (exists "EGS:EGS-Sorcery" (noreq))
- (set egs-dest "EGS:EGS-Sorcery")
- (set egs-dest
- (askdir
- (prompt "I can't find your EGS-Sorcery installation? "
- "Where is EGS-Sorcery located?")
- (help @askdir-help)
- (default "EGS:")
- )
- )
- )
-
- (set @default-dest "EGS:s")
-
- (message "Please note that what you are about to do is install "
- "an EGSDock.config file. It will not overwrite the old "
- "one if it exists, but will move it to EGSDock.config.bak. "
- "\n\nIf you are unfamiliar with this, you may abort now."
- )
-
- (set which-conf-file
- (askchoice
- (prompt "Which configuration file would you like installed?")
- (help @askchoice-help)
- (choices configf1 configf2 configf3 configf4 configf5
- configf6 configf7 configf8 configf9 configf10
- )
- (default 0)
- )
- )
-
- (if (> (exists configdest (noreq)) 0)
- (rename "EGS:s/EGSDock.config" "EGS:s/EGSDock.config.bak")
- )
-
-
-
- (if (= which-conf-file 0)
- (
- (set configsource config1)
- (copyconfig)
- )
- )
-
- (if (= which-conf-file 1)
- (
- (set configsource config2)
- (copyconfig)
- )
- )
-
- (if (= which-conf-file 2)
- (
- (set configsource config3)
- (copyconfig)
- )
- )
-
- (if (= which-conf-file 3)
- (
- (set configsource config4)
- (copyconfig)
- )
- )
-
- (if (= which-conf-file 4)
- (
- (set configsource config5)
- (copyconfig)
- )
- )
-
- (if (= which-conf-file 5)
- (
- (set configsource config6)
- (copyconfig)
- )
- )
-
- (if (= which-conf-file 6)
- (
- (set configsource config7)
- (copyconfig)
- )
- )
- (if (= which-conf-file 7)
- (
- (set configsource config8)
- (copyconfig)
- )
- )
-
- (if (= which-conf-file 8)
- (
- (set configsource config9)
- (copyconfig)
- )
- )
-
- (if (= which-conf-file 9)
- (
- (set configsource config10)
- (copyconfig)
- )
- )
-
- (complete 100)
-